Private Sub CommandButton1_Click()

    Dim Էġ As Range
    
    If Len(TextBox1.Value) = 0 Then Exit Sub

    Set Էġ = Cells(Rows.Count, "B").End(xlUp).Offset(1)
    
    With Էġ
        .Value = Val(Replace(TextBox1.Value, ",", ""))
        .NumberFormat = "#,###"
    End With

End Sub